program t y p e b o o l ;
var
a , b , c , d : boolean ;
begin
a := f a l s e ;
b := true ;
c := boolean ( 0 ) ;
// v a l o r i g u a l a z e r o : f a l s e
d := boolean ( −10) ; // v a l o r d i f e r e n t e de z e r o : true
writeln ( ’Variaveis : a=’ , a , ’ b=’ , b , ’ c=’ , c , ’ d=’ , d ) ;
end .

